Windows Expert/Windows Expert.iso/others/amimacro.zip/FRAMMACS.SMM

INI File | 1992-12-13 | 24KB | 1,273 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    HP LaserJet IIISi PostScript
[port]
    LPT2:
[lang]
    1
[desc]
    Load and save frames in macrofiles
    Lotus WPD Technical Support
    Advanced
    InsertMenuItem
    autorun
    724294065
    171
    697392920
    4450
    5
    1574
    13141
    33
    33






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Body Text
    2
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Text
    0
    0
[tag]
    dialogbox
    3
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        36
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    dialogbox
    12
    1
    720
    1
    1135
    1
    1440
    1
    1824
    1
    2566
    1
    2880
    1
    3254
    1
    3643
    1
    3979
    1
    4367
    1
    5815
    32771
    11430
    0
[lay]
    Standard
    519
    [rght]
        15840
        12240
        1
        331
        1080
        1
        1440
        331
        4
        1
        0
        3
        24
        2
        1
        331
        11909
        5
        1
        720
        1
        1440
        1
        2160
        1
        2880
        32771
        11430
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        360
        0
        1
        360
        360
        0
        1
        0
        1
        1
        0
        1
        360
        11880
        1
        3
        9360
    [txt]
<+B><:f240,,>Frame Macros<:f><:f240,,> Version 1.0<:f>

<+B><:s><:f160,,>by

<+B><:f160,,>Kurtis Kruse<:f>

<+B>

<+B>

>
    [frght]
    [lyfrm]
        1
        13248
        0
        14760
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        576
        1
        14832
        360
        0
        1
        0
        1
        1
        0
        1
        1440
        11880
        2
        2
        4680
        3
        9360
    [txt]
<:R1,2,2,4680,3,10440,>    Release <+,>v2<-,><+,>.2<-,>    June 1st, 1992    Page <:P10,0,> out
<+,>o<-,>f <:X3,16384;NumPages>7<:X~3,16384;NumPages>

>
[elay]
[l1]
    0
[pg]
    5
    55 0 34 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    111 0 8 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    166 0 70 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    220 0 66 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    243 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#236,11578><-!><+!>Define IsOKToRun(menuname) GetInfo(217, 24,  <-!><+!>%1<-!><+!>)

<:#236,11578><+!>

<:#236,11578><+!>FUNCTION FRAMMACS<-!><+!>()

<:#236,11578>IF IsNewWave()

<:#236,11578>    Message("Macro not available while running under HP NewWave.")

<:#236,11578>    Exit Function

<:#236,11578>ENDIF

<:#236,11578><+!>Init:<-!>

<:#236,11578>    FileChanged(1,1)

<:#236,11578>    Curdoc=GetOpenFileCount()    <+">'Test to see if a document is open. If not will have to exit macro.<-">

<:#236,11578>    If CurDoc= 0

<:#236,11578>        Message("For this macro to run properly a document must be open. Please open a document and rerun the macro.")

<:#236,11578>        Exit Function

<:#236,11578>    Endif

<:#236,11578>    ONERROR Tost        <+">    'If<-"><+"> error this macro will reset original conditions.<-">

<:#236,11578>    Macpath = GetMacPath$ ()    <+">'Obtaines the default macro path in which<-"><+"> this macro should be stored<-">.

<:#236,11578>    Docpath= GetmacPath$()    <+">    'Obtaines the default Macro<-"><+"> path in which<-"><+"> the glossary data file(s) is stored.<-">

<:#236,11578>    Icon=DeleteMenuItem(1,"F&rame",  "Frame Macros...")    <+">'Clear the menu if macro had already been run.<-">

<:#236,11578>    InsertMenuItem(1,"F&rame", 7, "Frame Macros...", "{Macpath}frammacs.smm!Body()", "Load and save frames in a glossary file.")

<:#236,11578>    If Icon= 1

<:#236,11578>        Call Body()

<:#236,11578>        Exit Function

<:#236,11578>    ElseIf StatusBarMsg("Installing Frame Glossary.")

<:#236,11578>    EndIf

<:#236,11578>    Installed=GetprofileString$("FrameMacros", "installed" , "AMIPRO2.INI")    <+">'Reads <[>datafile<-"><+">] section in Amipro2.ini.<-">

<:#236,11578>    Inientries=GetprofileString$("FrameMacros", "numberoframes" , "AMIPRO2.INI")

<:#240,11578><+!>Firstime:<-!>                <+">'This section sets up the Amipro2.ini and framglos.sam default data file.<-">

<:#236,11578>    If Installed=""

<:#236,11578>        Hourglass(1)        <+">'Turns hour glass on.<-">

<:#236,11578>        WriteProfileString("FrameMacros", "installed", "yes" , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">

<:#236,11578>        WriteProfileString("FrameMacros", "numberoframes", "0" , "AMIPRO2.INI")    <+">'Adds entries to Amipro2.ini<-"><+">.<-">

<:#236,11578>        Hourglass(0)        <+">'Enables screen redraw.<-">

<:#236,11578>    EndIf

<:#236,11578>    Call Max()            <+">'Runs the routine that maximizes the current<-"><+"> document<-"><+"> if necessary<-">

<:#236,11578>    StatusBarMsg("Frame Macros Now Installed.")    <+">'sets ami pro status Bar<-">

<:#236,11578>    StatusBarMsg("")        <+">'REsets the ami pro status bar<-">

<:s><:#236,11578>    Exit Function

<:#236,11578><+!>Tost:<-!>

<:s><:#236,11578>    Call Bomb()            <+">'Error Routine<-">

<:s><:#236,11578><+!>END FUNCTION<-!>

<:s><:#236,11578>

<:s><:#236,11578><+!>FUNCTION BODY()<-!>

<:#236,11578>    DIM Framemac(100)

<:#472,11578>    DEFSTR Width, Height, Top, Left, LM, TM, RM, BM, Units, Border, Pos, Thick, Shade, Background, ShadowColor, SL, ST, SR, SB, Type, Rounded, MacroName;

<:#236,11578>    ONERROR Tost

<:#236,11578>    Macpath = GetMacPath$ ()    <+">'Obtaines the default macro path in which<-"><+"> this macro should be stored<-">.

<:#236,11578>    Docpath= GetmacPath$()    <+">    'Obtaines the default Macro<-"><+"> path in which<-"><+"> the glossary data file(s) is stored.<-">

<:#236,11578>    FileChanged(1,1)

<:#236,11578>    Curdoc=GetOpenFileCount()

<:#236,11578>    If CurDoc= 0

<:#236,11578>        Message("For this macro to run properly a document must be open. Please open a document and rerun the macro.")

<:#236,11578>        Exit Function

<:#236,11578>    Endif

<:#236,11578><:f,2Times New Roman,>    Mode = GetMode()        <+"> 'What mode is the screen in?<-">

<:#236,11578><:f,2Times New Roman,>    IF Mode != 1

<:#236,11578><:f,2Times New Roman,>        LayoutMode()        <+"> 'If not Layout Mode, change it to be Layout.<-">

<:#236,11578><:f,2Times New Roman,>    ENDIF<:f>

<:#236,11578><+!>Init:<-!>

<:#236,11578>    Docpath= GetmacPath$()    <+">    'Obtaines the default document path in which<-"><+"> the glossary data file is stored.<-">

<:#236,11578>    Inientries=GetprofileString$("FrameMacros", "numberoframes" , "AMIPRO2.INI")    <+">'Reads <[><-"><+">FrameName<-"><+">] section in Amipro2.ini.<-">

<:#236,11578>    For x=1 to Inientries        <+">'This section skips deleted entries.<-">

<:#236,11578>        Namentry=(GetprofileString$("FrameMacros", "name{x}" , "AMIPRO2.INI"))    <+">'In addition<-"><+"> it writes valid entries<-"><+"> to<-">

<:#236,11578>        If {Namentry} != "DELETED"    <+">'the display dialog box.<-">

<:#236,11578>            FillEdit(9000, {Namentry})    <+">'Puts the name of the frame<-"><+"> into the dialog box<-">

<:#236,11578>            framemac(x)=namentry

<:#236,11578>        EndIf

<:s><:#236,11578>    Next

<:#236,11578>    DlgKeyInterrupt(112, "{Macpath}frammacs.smm!DisplayHelp")

<:#236,11578>    Displayboxresult=DialogBox(".","<++>Display<-+>")    <+">'Displays main<-"><+"> option dialog box.<-">

<:s><:#236,11578><+!>Body:<-!>

<:#236,11578>    If Displayboxresult=1         <+">'Return value of 1<-"><+"> from dialog box  signifies retrieve frame and begins loop.<-">

<:#236,11578>        Hourglass(1)

<:#236,11578>        Fieldin=GetDialogField$(8000)    <+">'Stores the name of the frame to be retrieved<-">

<:#236,11578>        If Fieldin= ""        <+">'Error routine if<-"><+"> no frame is selected.<-">

<:s><:#236,11578>            Beep()

<:#236,11578>            Message("Please enter the frame name to be retrieved.")

<:#236,11578>            Goto Init

<:s><:#236,11578>            Exit Function

<:#236,11578>        EndIf

        mac=0

<:#236,11578>        For x=1 to Inientries    'stores the # corresponding to the framename

<:#236,11578>            If framemac(x)=Fieldin

<:#236,11578>                mac=x

<:#236,11578>                break

<:#236,11578>            Endif

<:#236,11578>        Next

        If mac=0

            Hourglass(0)

            Beep()

            Message("{Fieldin} is not a valid frame name.  Please enter a new frame name to be retrieved.")

            Goto Init

            Exit Function

        Endif

<:#236,11578>        mactorun="Frame{mac}.smm"

<:#236,11578>        macname = strcat$(macpath,mactorun)

<:#236,11578>        CALLI macname ()

<:#236,11578>        Hourglass(0)

<:#236,11578>        Exit Function

<:#236,11578>    ElseIf Displayboxresult=3 <+">    'Return value of 3<-"><+"> from dialog box  signifies save<-"><+"> and begins loop.<-">

<:#236,11578>        Isframe=IsFrameSelected()

<:#236,11578>        If isframe !=1

<:#236,11578>            Beep()

<:#236,11578>            Message("You must have a frame selected before you can save one. Please try again.")

<:#236,11578>            Exit Function

<:#236,11578>        Else

<:#240,11578>            Result =<+!> IsOKToRun<-!>(FontChange)

<:#236,11578>            If  Result=1

<:#236,11578>                Beep()

<:#236,11578>                Message("This frame is in text mode. Please exit the frame and reselect it.")

<:#236,11578>                Exit Function

<:#236,11578>            EndIf

<:#236,11578>        Endif

<:#236,11578>        Hourglass(1)

<:#236,11578>        Fieldad=GetDialogField$(8000)

<:#236,11578>            For x=1 to Inientries

<:#236,11578>            Namentry=GetprofileString$("Framenames", "name{x}" , "AMIPRO2.INI")

<:#236,11578>            If Fieldad=Namentry    <+">'Error routine for duplicate frame names.<-">

<:s><:#236,11578>                Beep()

<:#236,11578>                Message("This frame name already exists in the current data file. Please use a unique name.")

<:#236,11578>            Goto init    <+">'Loop back to beginning

<:#236,11578>            EndIf

<:s><:#236,11578>            Next

<:#236,11578>            If Fieldad= ""    <+">'<-"><+">Error routine fo<-"><+">r no frame name entered.<-">

<:s><:#236,11578>                Beep()

<:#236,11578>                Message("Please enter the frame name to be saved.")

<:#236,11578>                Goto Init

<:#236,11578>            EndIf

<:#236,11578>        Darkmode(1)

<:#236,11578>        GetCurFrameLines(&Border, &Pos, &Thick, &Shade, &Background, &ShadowColor, &SL, &ST, &SR, &SB)

<:#236,11578>        GetCurFrameBorders(&Width, &Height, &Top, &Left, &LM, &TM, &RM, &BM, &Units)

<:#236,11578>        GetCurFrameType(&Type, &Rounded, &MacroName)

<:#236,11578>        If MacroName=""

<:#236,11578>            MacroName=""""""

<:#236,11578>        Endif

<:#236,11578>        Add1=inientries + 1    <+">'Increment frame counter one to account for new frame<-">

<:#236,11578>        New("_macro.sty",1,0)

<:#236,11578>        Type("FUNCTION Frame{add1}() ' Macro to create the frame '{fieldad}' for Frammacs.smm<[>ENTER]")

<:#236,11578>        Type("Darkmode(1)<[>ENTER]")

<:#236,11578>        Type("Addframe(0, 0, 1440, -1440)<[>ENTER]")

<:#236,11578>        Type("FrameModInit()<[>ENTER]")

<:#236,11578>        Type("FrameModBorders({Width}, {Height}, {Top}, {Left}, {LM}, {TM}, {RM}, {BM}, {Units})<[>ENTER]")

<:#472,11578>        Type("FrameModLines({Border},{Pos}, {Thick}, {Shade}, {Background}, {ShadowColor}, {SL}, {ST}, {SR}, {SB})<[>ENTER]")

<:#236,11578>        Type("FrameModType({Type}, {Rounded}, {MacroName})<[>ENTER]")

<:#236,11578>        Type("FrameModFinish()<[>ENTER]")

<:#236,11578>        Type("Darkmode(0)<[>ENTER]")

<:#236,11578>        Type("END FUNCTION<[>ENTER]")

<:#236,11578>        Des = "Macro to create the frame '{fieldad}' for <++>Frammacs.smm<-+>"

<:#236,11578>        macfilename=Strcat$(MacPath,"FRAME{add1}.SMM")

<:#236,11578>        SaveAs(macfilename,  32, Des,  "" )

<:#236,11578>        FileClose()

<:#236,11578>        Darkmode(0)

<:#236,11578>        WriteProfileString("FrameMacros", "numberoframes", Add1 , "AMIPRO2.INI")    <+">'makes this change<-"><+"> in<-"><+"> Amipro2.ini<-"><+">.<-">

<:#236,11578>        WriteProfileString("FrameMacros", "name{Add1}" , fieldad , "AMIPRO2.INI")    <+">'<-"><+">'Adds frame name<-"><+"> to Amipro2.ini<-"><+">.<-">

<:#236,11578>        Hourglass(0)

<:#236,11578>        Exit Function

<:#236,11578>    ElseIf    Displayboxresult =4    <+">'Return value of 4<-"><+"> from dialog box  signifies deletion<-"><+"> and begins loop.<-">

<:#236,11578>        Hourglass(1)

<:#236,11578>        Fielddel=GetDialogField$(8000)

<:#236,11578>            If Fielddel= ""    <+">'<-"><+">Error routine fo<-"><+">r<-"><+"> no frame name entered.<-">

<:s><:#236,11578>                Beep()

<:#236,11578>                Message("Please enter frame name to be deleted.")

<:#236,11578>                Goto Init

<:s><:#236,11578>                Exit Function

<:#236,11578>            EndIf

<:#236,11578>        For x=1 to Inientries

<:#236,11578>        Namentry=GetprofileString$("FrameMacros", "name{x}" , "AMIPRO2.INI")

<:#236,11578>            If Namentry=Fielddel

<:#236,11578>                WriteProfileString("FrameMacros", "name{x}", "DELETED", "AMIPRO2.INI")

<:#236,11578>            EndIf        <+">'Tags the frame as being deleted.<-">

<:s><:#236,11578>        Next

<:#236,11578>        Hourglass(0)

<:s><:#236,11578>        Exit Function

<:#236,11578>    ElseIf  Displayboxresult=5<+">     '<-"><+">5<-"><+"> Signifies Cancel. Before ending macro will reset to original condition.<-">

<:s><:#236,11578>        Call Max()

<:s><:#236,11578><:f,2Times,>        IF Mode = 48

<:#236,11578><:f,2Times,>            OutlineMode()    <:f><+"> ' To change back to original view.<-">

<:#236,11578><:f,2Times,>        ElseIf<:f><:f,2Times,> Mode = 16

<:#236,11578><:f,2Times,>            DraftMode()

<:#236,11578><:f,2Times,>        EndIf<:f>

<:#236,11578>        Hourglass(0)

<:s><:#236,11578>        Exit Function

<:#236,11578>    EndIf

<:s><:#236,11578>    <+!>Exit Function<-!>

<:#240,11578><+!>Tost:<-!>                    <+">'Error Routine.<-">

<:#236,11578>Darkmode(0)

<:#236,11578>Call Bomb()

<:s><:#236,11578><+!>END FUNCTION<-!>

<:s><:#236,11578>

<:#240,11578><+!><++>Function Max()<-+><-!><-!>            <+">'Maximizes active document<-"><+"> if it was the only one open before.<-"><-!>

<:#236,11578>    Size=GetOpenFileCount()        '<+">Testing if document<-"><+"> window had been maximized or not. If maximized<-">

<:#236,11578>    DIM fname(Size)    <+">    ' document<-"><+"> will be<-"><+"> returned to its maximized state.<-">

<:#236,11578>    GetOpenFileNames(&Fname)

<:#236,11578>    For y=1 to Size

<:#236,11578>    Curap=Fname(y)

<:#236,11578>    If size=1

<:#236,11578>        AppMaximize(curap)

<:#236,11578>    EndIf

<:#236,11578>    Next

<:s><:#236,11578><+!><++>End Function<-+><-!>

<:#236,11578>

<:#236,11578><+!><++>FUNCTION DisplayHelp()<-+><-!>

<:#236,11578>    InsertIntro="<+#>To insert<-#><+#> a frame:<-#>"    <+">'This section creates<-"><+"> the text for<-"><+"> the help screen.<-">

<:#236,11578>    Insert="Select the frame name or type it in the Frame text box. Choose Insert."

<:#236,11578>    SaveIntro="<+#>To save<-#><+#> a frame:<-#>"

<:#236,11578>    Saveit="Select the frame in the document. Chose Frame/Frame Glossary. Type a name in the Frame text box. Choose Save."

<:#236,11578>    DeleteIntro="<+#>To delete a frame:<-#>"

<:#236,11578>    Deletetext="Select the frame name or type it in the Frame text box. Choose Delete."

<:#236,11578>    QuitIntro="<+#>To close the dialog box<-#><+#>:<-#>"

<:#236,11578>    Quit="Choose Close."

<:#236,11578>    Stop=chr$(13)

<:#708,11578>    Filledit (1000, "{InsertIntro}{Stop}{Insert}{Stop}{Stop}{SaveIntro}{Stop}{Saveit}{Stop}{Stop}{DeleteIntro}{Stop}{Deletetext}{Stop}{Stop}{QuitIntro}{Stop}{Quit}")

<:#236,11578>    DialogBox(".","Help")        <+">'This overcomes character limit of single<-"><+"> edit box.<-">

<:s><:#236,11578><+!><++>END FUNCTION<-+><-!>

<:s><:#236,11578>

<:#240,11578><+!><++>FUNCTION<-+> <++>Bomb<-!><-+><+!><-+>()<-!><-+><-+><-+>            <+">'Error routine<-">

<:#236,11578>    Hourglass(0)

<:#236,11578>    StatusBarMsg("")

<:s><:#236,11578>    <+!>Exit Function<-!>

<:s><:#236,11578><+!><++>END FUNCTION<-+><-!>

<+B><:#236,11578><+!><+#>'The following are dialog boxes called in functions above.<-#><-!>

@dialogbox@<:#236,11578><-!><-!><-!><-+>

@dialogbox@'This sections sets up builds the main dialog box<-+><-!><-!><-!><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+><-!><-+>

@dialogbox@<-+><-!>DIALOG    Display

@dialogbox@-2134376448    8    129    58    174    153    ""    "AmiDialog"    "Frame Glossary"

@dialogbox@FONT    8    "Helv"

@dialogbox@7    16    118    12    8000    1350631552    "edit"    ""    0

@dialogbox@7    31    84    12    1003    1342177280    "static"    "Current Files:"    0

@dialogbox@7    42    118    110    9000    1352728579    "listbox"    ""    0

@dialogbox@129    5    42    15    1    1342373889    "button"    "&Insert"    0

@dialogbox@129    23    42    15    3    1342373888    "button"    "&Save"    0

@dialogbox@129    41    42    15    4    1342373888    "button"    "&Delete"    0

@dialogbox@129    60    42    16    5    1342373888    "button"    "&Close"    0

@dialogbox@7    5    84    10    1000    1342177280    "static"    "Frame:"    0

@dialogbox@END DIALOG

@dialogbox@
@dialogbox@<:#240,11578><-!><-!><-+><+!><++>DIALOG Help<-+><-!>                <+">                        'This section contains info for the help<-"><+"> dialog box.<-"><-">

@dialogbox@<:#236,11578>-2143289344     2 148 30 164 180 "" "" ""

@dialogbox@<:#236,11578>FONT 8 "Helv"

@dialogbox@<:#236,11578>60     160     40     14     1     1342373889 "button"     "OK"     0

@dialogbox@<:#236,11578>4      6     151     145     1000     1342177280 "static"     "" 0

@dialogbox@<:#236,11578><+!><++>END DIALOG<-+><-!>

<:#236,11578><-+>

@dialogbox@<:#236,11578>

>

[Embedded]
00017742
>
[macsum] 7
FRAMMACS 0 0 7 2
BODY 956 0 43 41
Max 4608 0 5 188
DisplayHelp 4828 0 10 200
Bomb 5385 0 1 214
Display 5437 0 -1 222
Help 5917 0 -1 235
[macse]
14 FRAMMACS
0 1317
13
11 00000109
0 3 "Macro not available while running under HP NewWave."
6 0
15
9
0 34 1 1
0 1050
13
8 1
6 1
5 0
18 0
11 00000284
0 3 "For this macro to run properly a document must be open. Please open a document and rerun the macro."
6 0
15
9
20 00000935
0 295
13
8 2
0 295
13
8 3
0 520 1 "F&rame" "Frame Macros..."
13
8 4
0 527 1 "F&rame" 7 "Frame Macros..." "{2}frammacs.smm!Body()" "Load and save frames in a glossary file."
6 4
5 1
18 0
11 00000543
16 Body
6 0
15
9
10 00000596
0 789 "Installing Frame Glossary."
13
11 00000596
0 286 "FrameMacros" "installed" "AMIPRO2.INI"
13
8 5
0 286 "FrameMacros" "numberoframes" "AMIPRO2.INI"
13
8 6
6 5
7 ""
18 0
11 00000868
0 296 1
0 287 "FrameMacros" "installed" "yes" "AMIPRO2.INI"
0 287 "FrameMacros" "numberoframes" "0" "AMIPRO2.INI"
0 296 0
16 Max
0 789 "Frame Macros Now Installed."
0 789 ""
6 0
15
9
16 Bomb
6 0
15
9
14 BODY
5 100
21 1 [X]
20 00003622
0 295
13
8 24
0 295
13
8 25
0 34 1 1
0 1050
13
8 26
6 26
5 0
18 0
11 00000250
0 3 "For this macro to run properly a document must be open. Please open a document and rerun the macro."
6 0
15
9
0 29
13
8 27
6 27
5 1
18 1
11 00000305
2 210 1
0 295
13
8 25
0 286 "FrameMacros" "numberoframes" "AMIPRO2.INI"
13
8 28
5 1
8 29
6 28
6 29
18 2
12 00000473
10 00000616
5 1
6 29
3 0
8 29
10 00000394
0 286 "FrameMacros" "name{29}" "AMIPRO2.INI"
13
8 30
6 30
7 "DELETED"
18 1
11 00000603
0 31 9000 "{30}"
6 29
6 30
23 1
10 00000438
0 47 112 "{24}frammacs.smm!DisplayHelp"
0 26 "." "Display"
13
8 31
6 31
5 1
18 0
11 00001296
0 296 1
0 27 8000
13
8 32
6 32
7 ""
18 0
11 00000862
0 801
0 3 "Please enter the frame name to be retrieved."
10 00000305
6 0
15
9
5 0
8 33
5 1
8 29
6 28
6 29
18 2
12 00000963
10 00001038
5 1
6 29
3 0
8 29
10 00000884
6 29
22 1
6 32
18 0
11 00001025
6 29
8 33
10 00001038
10 00000928
6 33
5 0
18 0
11 00001196
0 296 0
0 801
0 3 "{32} is not a valid frame name.  Please enter a new frame name to be retrieved."
10 00000305
6 0
15
9
7 "Frame{33}.smm"
8 34
0 16 "{24}" "{34}"
13
8 35
16 "{35}"
0 296 0
6 0
15
9
10 00003610
6 31
5 3
18 0
11 00003009
0 800
13
8 36
6 36
5 1
18 1
11 00001486
0 801
0 3 "You must have a frame selected before you can save one. Please try again."
6 0
15
9
10 00001638
0 1313 217 24 251
13
8 37
6 37
5 1
18 0
11 00001638
0 801
0 3 "This frame is in text mode. Please exit the frame and reselect it."
6 0
15
9
0 296 1
0 27 8000
13
8 38
5 1
8 29
6 28
6 29
18 2
12 00001758
10 00001967
5 1
6 29
3 0
8 29
10 00001679
0 286 "Framenames" "name{29}" "AMIPRO2.INI"
13
8 30
6 38
6 30
18 0
11 00001954
0 801
0 3 "This frame name already exists in the current data file. Please use a unique name."
10 00000305
10 00001723
6 38
7 ""
18 0
11 00002066
0 801
0 3 "Please enter the frame name to be saved."
10 00000305
0 292 1
0 793 &11 &12 &13 &14 &15 &16 &17 &18 &19 &20
0 795 &2 &3 &4 &5 &6 &7 &8 &9 &10
0 794 &21 &22 &23
6 23
7 ""
18 0
11 00002223
7 """"""
8 23
6 28
5 1
3 0
8 39
2 101 1 "_macro.sty" 1 0
0 6 "FUNCTION Frame{39}() ' Macro to create the frame '{38}' for Frammacs.smm[13]"
0 6 "Darkmode(1)[13]"
0 6 "Addframe(0, 0, 1440, -1440)[13]"
0 6 "FrameModInit()[13]"
0 6 "FrameModBorders({2}, {3}, {4}, {5}, {6}, {7}, {8}, {9}, {10})[13]"
0 6 "FrameModLines({11},{12}, {13}, {14}, {15}, {16}, {17}, {18}, {19}, {20})[13]"
0 6 "FrameModType({21}, {22}, {23})[13]"
0 6 "FrameModFinish()[13]"
0 6 "Darkmode(0)[13]"
0 6 "END FUNCTION[13]"
7 "Macro to create the frame '{38}' for Frammacs.smm"
8 40
0 16 "{24}" "FRAME{39}.SMM"
13
8 41
2 104 1 "{41}" 32 "{40}" ""
2 147 1
0 292 0
0 287 "FrameMacros" "numberoframes" "{39}" "AMIPRO2.INI"
0 287 "FrameMacros" "name{39}" "{38}" "AMIPRO2.INI"
0 296 0
6 0
15
9
10 00003610
6 31
5 4
18 0
11 00003458
0 296 1
0 27 8000
13
8 42
6 42
7 ""
18 0
11 00003178
0 801
0 3 "Please enter frame name to be deleted."
10 00000305
6 0
15
9
5 1
8 29
6 28
6 29
18 2
12 00003268
10 00003424
5 1
6 29
3 0
8 29
10 00003189
0 286 "FrameMacros" "name{29}" "AMIPRO2.INI"
13
8 30
6 30
6 42
18 0
11 00003411
0 287 "FrameMacros" "name{29}" "DELETED" "AMIPRO2.INI"
10 00003233
0 296 0
6 0
15
9
10 00003610
6 31
5 5
18 0
11 00003610
16 Max
6 27
5 48
18 0
11 00003549
2 218 1
10 00003589
6 27
5 16
18 0
11 00003589
2 211 1
0 296 0
6 0
15
9
6 0
15
9
0 292 0
16 Bomb
6 0
15
9
14 Max
0 1050
13
8 1
6 1
21 2 [X]
0 1051 &2
5 1
8 3
6 1
6 3
18 2
12 00000136
10 00000208
5 1
6 3
3 0
8 3
10 00000061
6 3
22 2
8 4
6 1
5 1
18 0
11 00000195
0 1029 "{4}"
10 00000103
6 0
15
9
14 DisplayHelp
7 "To insert a frame:"
8 1
7 "Select the frame name or type it in the Frame text box. Choose Insert."
8 2
7 "To save a frame:"
8 3
7 "Select the frame in the document. Chose Frame/Frame Glossary. Type a name in the Frame text box. Choose Save."
8 4
7 "To delete a frame:"
8 5
7 "Select the frame name or type it in the Frame text box. Choose Delete."
8 6
7 "To close the dialog box:"
8 7
7 "Choose Close."
8 8
0 39 13
13
8 9
0 31 1000 "{1}{9}{2}{9}{9}{3}{9}{4}{9}{9}{5}{9}{6}{9}{9}{7}{9}{8}"
0 26 "." "Help"
6 0
15
9
14 Bomb
0 296 0
0 789 ""
6 0
15
9
6 0
15
9
DIALOG Display
-2134376448 8 129 58 174 153 "" "AmiDialog" "Frame Glossary"
FONT 8 "Helv"
7 16 118 12 8000 1350631552 "edit" "" 0
7 31 84 12 1003 1342177280 "static" "Current Files:" 0
7 42 118 110 9000 1352728579 "listbox" "" 0
129 5 42 15 1 1342373889 "button" "&Insert" 0
129 23 42 15 3 1342373888 "button" "&Save" 0
129 41 42 15 4 1342373888 "button" "&Delete" 0
129 60 42 16 5 1342373888 "button" "&Close" 0
7 5 84 10 1000 1342177280 "static" "Frame:" 0
DIALOG Help
-2143289344 2 148 30 164 180 "" "" ""
FONT 8 "Helv"
60 160 40 14 1 1342373889 "button" "OK" 0
4 6 151 145 1000 1342177280 "static" "" 0
00017767